Top 10k strings from Superfile (1983)(Transform)(de).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

  12 _______________________
   3 N$(F);": ";
   2 ;"TASTE ENTER"
   2 ;"S U P E R F I L E"
   2 ;"RECORD NR.: ";
   2 ;"DRUCKER";
   2 "SPALTENZAHL ITEM ";F-1
   1 _________________________
   1 U$     = UHRZEIT
   1 U      = EINTRAG J/N
   1 SUPERFILE x&
   1 SUM    = LETZTES EINGEGEBENES RECORD
   1 SUCHEN IN DER DATEI
   1 STATUSBERICHT
   1 SORTITEM>ITEM
   1 SORTIEREN NACH ITEMS
   1 S(F)=S(F)+S(F-1
   1 S(F)   = ANZAHL SPALTEN FUER ITEMS
   1 RECORD = MOEGLICHE RECORDS
   1 REC>RECORD
   1 REC    = TATSAECHLICHE RECORDS
   1 R$(REC,PRUEFS):
   1 R$(REC,PRUEFS)
   1 R$(J1)=R$(J1-1
   1 R$(I)=R$(L)
   1 R$(G)=R$(G+1
   1 PRUEFS=S(F-1
   1 PRUEFS = SUMME SPALTEN
   1 PRINTER CONTROLL-CODES
   1 N$(ITEM,10
   1 N$(F)  = BEZEICHNUNG DER ITEMS
   1 LOESCHEN RECORDS
   1 LOESCHEN ALLER DATEN 
   1 F=SORTITEM
   1 EINSORTIEREN ----------
   1 EINGABE ITEM
   1 EINGABE DATEN
   1 DATUM+UHRZEIT
   1 D$     = DATUM
   1 AUSGABE RECORDS AUF DRUCKER
   1 AUSGABE ALLER DATEN
   1 A/B/C$ = AKTUELLE STRINGEINGABE
   1 ;S(F)-S(F-1
   1 ;'"EINGABE 0 = ZURUECK ZUM MENUE"
   1 ;"ZURUECK ZUM MENUE: TASTE ENTER"
   1 ;"ZURUECK ZUM HAUPTMENUE";
   1 ;"SUCHEN IN DER DATEI"
   1 ;"SUCHE BEENDET";
   1 ;"STATUSBERICHT";
   1 ;"STATUSBERICHT"
   1 ;"SORTIEREN NACH ITEMS"
   1 ;"SORTIEREN BEENDET"
   1 ;"SAVEN J/N"
   1 ;"SAVEN DER DATEI";
   1 ;"SAVEN AUF TONBAND"
   1 ;"RECORD-NR.: ";G
   1 ;"OPTIONEN:"
   1 ;"LOESCHEN VON RECORDS"
   1 ;"LOESCHEN J/N"
   1 ;"LOESCHEN ALLER DATEN";
   1 ;"KEINE EINGAGE MEHR VORHANDEN!":
   1 ;"KEIN EINTRAG VORHANDEN!":
   1 ;"ITEM ";F;": ";
   1 ;"ICH SUCHE             "
   1 ;"ICH SORTIERE"
   1 ;"ES SIND NUR ";RECORD;" MOEGLICH":
   1 ;"EINGABE ITEM/SPALTENZAHL";
   1 ;"EINGABE ITEM"
   1 ;"EINGABE DATEN"
   1 ;"DATUM:";D$(
   1 ;"DATENVERWALTUNGSPROGRAMM"
   1 ;"BITTE WARTEN"
   1 ;"BEZEICHNUNG DER ITEMS"
   1 ;"AUSGABE DATEN"
   1 ;"AUSGABE ALLER DATEN";
   1 ;"ANZAHL DER RECORDS SIND ERREICHT"
   1 ;"ACHTUNG";
   1 ;"ACHTUNG!!"
   1 ;": ";S(F)
   1 ;": ");S(F)
   1 ;" RECORDS VORHANDEN!":
   1 ;" GELOESCHT."
   1 ;" ALLE DATEN LOESCHEN???"
   1 );".";D$(5
   1 );".";D$(3
   1 (SUM/RECORD*100
   1 (RECORD/PRUEFS):
   1 (RECORD)-500
   1 ("ITEM ";F;": ");N$(F)
   1 ("ANZAHL DER SPALTEN FUER DAS ITEM ";F-1
   1 '''"ITEMS: ";
   1 ''"WELCHES RECORD SOLL GELOESCHT   WERDEN: ";:
   1 ''"AUSGABE AUF DEN ";
   1 ''"AUSGABE AUF ";
   1 '"SPEICHERBELEGUNG:";
   1 '"NACH WELCHEM ITEM SOLL SORTIERT WERDEN? GEBE DIE NUMMER EIN: ";:
   1 '"DATEI: ";
   1 '"ALLE NACHFOLGENDEN RECORDS WER- DEN UM EINEN PLATZ NACH UNTEN   GESCHOBEN."
   1 "________________________________"
   1 "WIEVIELE RECORDS: ";:
   1 "WIEVIELE ITEM: ";:
   1 "WEITER MIT DATENEINGABE? J/N"
   1 "TEXT: ";A$
   1 "TATSAECHLICHE RECORDS:";
   1 "TASTE ENTER"
   1 "TAG,MONAT,JAHR  Z.B.300982"
   1 "SUPERFILE"
   1 "SUCHEN IN DER DATEI";
   1 "STUNDE,MINUTE    Z.B. 1245"
   1 "SORTIEREN NACH ITEMS";
   1 "RECORD ";
   1 "MOEGLICHE RECORDS:";
   1 "MOEGLICHE RECORDS: ";RECORD
   1 "LOESCHEN VON RECORDS";
   1 "ITEM ";F;": ";N$(F)
   1 "GEBE DIE UHRZEIT EIN:"
   1 "GEBE DEN TEXTTEIL EIN NACH DEM DU SUCHST"
   1 "GEBE DEN NAMEN DER NEUEN DATEI  EIN: ";:
   1 "GEBE DEN NAMEN DER DATEI EIN:    ";X$
   1 "GEBE DAS DATUM EIN:"
   1 "F321F8FC01100136F7230B78B120F83EFDED47ED5EFBC9000000"
   1 "ES SIND NUR ";
   1 "EINGEGEBENE RECORDS:";
   1 "EINGABE DATEN";
   1 "DDE5F5C5D5E53AB2F83D32B2F8C246F83E3232B2F83AB5F8A7CE012732B5F8FE60C246F8AF32B5F83AB4F8A7CE012732B4F8FE60C246F8AF32B4F83AB3F8A7CE012732B3F8FE13C246F83E0132B3F8DD2118403AB3F8CD79F83E0ACD8CF83AB4F8CD79F83E0ACD8CF83AB5F8CD79F8211858060836712310FBE1D1C1F1DDE1C33800F5CB3FCB3FCB3FCB3FCD8CF8F1E60FCD8CF8C9DDE52A365C11800119EB6F26002929291911000106087EEEFFDD770023DD1910F5DDE1DD23C9"
   1 "DATENEINGABE KORREKT? J/N"
   1 "BEZEICHNUNG ITEM ";F;": ";
   1 "ALLE BEZEICHNUNGEN KORREKT? J/N"
   1 "3355";R$(J1),R$(J1-1
   1 " EINE ITEM-EINGABE IST VORHANDENEINE NEUE EINGABE ORGANISIERT   DIE ITEMS NEU! WEITER? J/N"
   1 "       TASTE ENTER"